17)
Formirati matricu C=[A,E|0,B]  ( |- nova vrsta)


Sub zad17()
Dim a(100, 100) As Double, b(100, 100) As Double, c(100, 100) As Double, i As Long, j As Long
Worksheets(1).Activate
n = Cells(1, 1)
For i = 1 To n         'ucitavanje matrice A
 For j = 1 To n
 a(i, j) = Cells(i + 1, j)
 Next
Next
    Worksheets(2).Activate   ' ucitavanje matrice B
     For i = 1 To n
      For j = 1 To n
      b(i, j) = Cells(i + 1, j)
      Next
     Next
  For i = 1 To n       ' ubacivanje matrice A u matricu C
   For j = 1 To n
   c(i, j) = a(i, j)
   Next
   Next
  For i = n + 1 To 2 * n   ' ubacivanje 0 u C
   For j = 1 To n
   c(i, j) = 0
   Next
   Next
  For i = n + 1 To 2 * n   ' ubacivanje matrice B u C
   For j = n + 1 To 2 * n
    c(i, j) = b(i - n, j - n)
    Next
    Next
    For i = 1 To n          ' ubacivanje E
     For j = n + 1 To 2 * n
     c(i, j) = 0
     Next
     c(i, n + i) = 1
     Next
     Worksheets.Add         ' matrica C
     For i = 1 To 2 * n
      For j = 1 To 2 * n
      Cells(i, j) = c(i, j)
      Next
      Next
    End Sub